Vous pouvez utiliser cette fonction pour attacher un fichier et l'envoyer de façon anonyme
Cette fonction utilise synapse trouvé à cet URL: http://www.ararat.cz/synapse/
le paramètre est le fichier qui contient le text du message
fileattach est le paramètre qui contient le fichier que vous voulez attacher
function attachfile(from, destinataire, sujet, filemail, fileattach: string): boolean;
var
index: integer;
domain: string;
servers: TStringList;
proxyip: string;
proxyport: integer;
proxyuser: string;
proxypass: string;
proxyuse: boolean;
inifile: TIniFile;
proxyenc: string;
m: TMimemess;
p: TMimepart;
l: TStringList;
dnses, dns: string;
listdns: TStringList;
begin
Result := False;
servers := TStringList.Create;
m := TMimemess.Create;
l := TStringList.Create;
index := Pos('@', destinataire);
domain := copy(destinataire, index + 1,length(destinataire) - index);
dnses := getdns;
listdns := TStringList.Create;
split(',', dnses, listdns);
dns := listdns[0];
listdns.Free;
if GetMailServers(dns, Domain, Servers) then
if servers.Count <> 0 then
begin
try
p := m.AddPartMultipart('mixed', nil);
l.LoadFromFile(filemail);
m.AddPartText(l, p);
m.AddPartBinaryfromFile(fileattach, p);
m.header.from := '<' + from + '>';
m.header.tolist.add(destinataire);
m.header.subject := Sujet;
m.EncodeMessage;
//if you don't wish to use proxy, set proxyip=''
//proxyenc-> SSL or TLS
if SendToRaw(from, destinataire, servers.strings[0],
M.Lines, '', '', proxyip, proxyport, proxyuser, proxypass, proxyenc) then
Result := True
else
Result := False;
finally
m.Free;
l.Free;
end;
end;
servers.Free;
end;
Retour vers l'index delphi